** ------------------------------------- Table 9: Profitability and Cost of Debt
use "$data_path/database_bdc_level_synthetic.dta", clear

** ----------------------------------------------- Panel (a) Net interest margin
reghdfe int_inc_net_avg_assets ind_treated_bdc ind_post interaction, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_a

reghdfe int_inc_net_avg_assets ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_b

reghdfe int_inc_avg_assets ind_treated_bdc ind_post interaction, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_c

reghdfe int_inc_avg_assets ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_d

reghdfe int_exp_avg_assets ind_treated_bdc ind_post interaction, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_e

reghdfe int_exp_avg_assets ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_f

esttab reg_a reg_b reg_c reg_d reg_e reg_f ///
using "${tables_path}/table9a.tex" ///
,cells(b(star  fmt(2)) se(par  fmt(2))) stat(bdc_fe time_fe r2 N, fmt(%~15s %~15s %9.2g %9.0g ) layout(\mc{@} \mc{@} @ \mc{@}) labels("BDC FE" "Time FE" "\$R^{2}\$" "\textit{N}")) ///
style(tex) starlevels(^{*} 0.10  ^{**} 0.05 ^{***} 0.01)  nomtitles mgroups("Net Interest Income" "Interest Income" "Interest Expense", pattern(1 0 1 0 1 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) nonumbers collabels(none) ///
coeflabels(ind_post "Post" ind_in_russell2500 "Treated" interaction "Post \$\times\$ Treated" lag_debt_to_assets_ratio "Debt/Assets\$_{t-1}\$" lag_assets_total_ln "ln(Assets\$_{t-1}\$)" lag_int_inc_net_avg_assets "Net Int. Inc./Assets\$_{t-1}\$" ) ///
replace substitute(\_ _) drop(_cons) noomit alignment(D{.}{.}{-1}) posthead(%) tex ///
nolines prefoot(\midrule) postfoot(\bottomrule \end{tabular} })

** ----------------------- Panel (b) Returns on assets, equity, and cost of debt
reghdfe roaa ind_treated_bdc ind_post interaction, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_a

reghdfe roaa ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_b

reghdfe roae ind_treated_bdc ind_post interaction,  absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_c

reghdfe roae ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_d

reghdfe road ind_treated_bdc ind_post interaction,  absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_e

reghdfe road ind_treated_bdc ind_post interaction lag_assets_total_ln lag_debt_to_assets_ratio, absorb(bdc_ticker_num filingdateqtr) 
estadd local bdc_fe "Yes"
estadd local time_fe "Yes"
estimates store reg_f

esttab reg_a reg_b reg_c reg_d reg_e reg_f ///
using "${tables_path}/table9b.tex" ///
,cells(b(star  fmt(2)) se(par  fmt(2))) stat(bdc_fe time_fe r2 N, fmt(%~15s %~15s %9.2g %9.0g ) layout(\mc{@} \mc{@} @ \mc{@}) labels("BDC FE" "Time FE" "\$R^{2}\$" "\textit{N}")) ///
style(tex) starlevels(^{*} 0.10  ^{**} 0.05 ^{***} 0.01)  nomtitles mgroups("ROA" "ROE" "Cost of Debt", pattern(1 0 1 0 1 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) nonumbers collabels(none) ///
coeflabels(ind_post "Post" ind_treated_bdc "Treated" interaction "Post \$\times\$ Treated" lag_debt_to_assets_ratio "Debt/Assets\$_{t-1}\$" lag_assets_total_ln "ln(Assets\$_{t-1}\$)" lag_int_inc_net_avg_assets "Net Int. Inc./Assets\$_{t-1}\$" ) ///
replace substitute(\_ _) drop(_cons) noomit alignment(D{.}{.}{-1}) posthead(%) tex ///
nolines prefoot(\midrule) postfoot(\bottomrule \end{tabular} })
